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-- UnNewConf ig. mesa; edited by Sandman on Aug 31, 1978 5:04 PM 

DIRECTORY 

BcdDefs: FROM "bcddefs" USING [MTHandle, MTIndex, UnboundLink] , 
ControlDefs: FROM "control defs" USING [ 

ControlLink, FrameCodeBase, Free, GFT, GFTIndex, GFTItem, 

GlobalFrameHandle, NullGlobalFrame, TrapLink], 
FrameDefs: FROM "framedefs" USING [ 

EnumerateGlobalFrames, GlobalFrame, LockCode, UnlockCode, UnNew], 
InlineDefs: FROM " in! inedef s" USING [BITAND], 
LoaderBcdUtilDefs: FROM "loaderbcdutildef s" USING [ 

BcdBase, EnumerateModuleTable, ReleaseBcdSeg, SetUpBcd], 
LoaderDefs: FROM "loaderdef s" , 
LoadStateDefs: FROM "loadstatedef s" USING [ 

BcdAddress, BcdSegFromLoadState, Configlndex, EnumerateLoadStateBcds, 

InitializeRelocation, InputLoadState , MapReal ToConf ig, ReleaseLoadState, 

ReleaseRelocation, Relocation, RemoveConf ig, SetUnresol vedlmports] , 
SegmentDefs: FROM "segmentdef s M USING [ 

DeleteFileSegment, FileSegmentAddress, FileSegmentHandle, SwapError, 

Swapln, SwapUp, Unlock], 
SystemDefs: FROM "systemdefs" USING [FreeSegment]; 

UnNewConfig: PROGRAM 

IMPORTS FrameDefs, LoadStateDefs, LoaderBcdUtilDefs, SegmentDefs, SystemDefs 
EXPORTS LoaderDefs = BEGIN 

Configlndex: TYPE = LoadStateDefs .Configlndex; 
Relocation: TYPE - LoadStateDefs . Relocation ; 
BcdBase: TYPE = LoaderBcdUtilDefs .BcdBase; 
GlobalFrameHandle: TYPE = ControlDefs .Global FrameHandle; 
NullGlobalFrame: GlobalFrameHandle = ControlDefs .Nul IGlobal Frame; 

UnNewConfig: PUBLIC PROCEDURE [frame: GlobalFrameHandle] = 
BEGIN OPEN LoadStateDefs; 
config: Configlndex; 
re! : Relocation; 

bcdseg: SegmentDefs . FileSegmentHandle; 
bed: BcdBase; 
FindOriginal: PROCEDURE [f: GlobalFrameHandle] RETURNS [BOOLEAN] ■ 

BEGIN 

IF f # frame THEN 
BEGIN 
IF SameCode[frame, f] « identical AND -f. copied THEN 

BEGIN frame «- f ; RETURN[TRUE] END; 
END; 

RETURN[FALSE]; 

END; 
IF frame. copied THEN [] <- FrameDefs . EnumerateGlobal Frames[FindOriginal ] ; 
[] ♦- InputLoadState[] ; 

[config: config] ♦- MapRealToConf ig[f rame.gf i] ; 
bcdseg <- BcdSegFromLoadState[conf ig] ; 
bed <- LoaderBcdUtilDef s .SetUpBcd[bcdseg] ; 
rel <- Initial izeRelocation[conf ig]; 
UnBindConf ig[conf ig, bed, rel]; 
CleanupFrames[rel ] ; 
CleanupGFT[rel]; 
RemoveConf ig[rel , config]; 
ReleaseRelocation[rel]; 
ReleaseLoadState[] ; 

LoaderBcdUtilDefs. ReleaseBcdSeg [beds eg]; 
RETURN 
END; 

CodeMatch: TYPE - {identical, same, different}; 

SameCode: PROCEDURE [fl, f2: GlobalFrameHandle] RETURNS [CodeMatch] - 
BEGIN 

ol, 02: CARDINAL; 
feb: ControlDefs .FrameCodeBase; 

IF fl.codesegment # f 2 . codesegment THEN RFTURN[dif f erent]; 
IF fl .codesegment . swappedin THEN 

BEGIN 

SegmentDefs . Swapln[f 1 .codesegment]; 

ol <- f 1 . code . codebase - SegmentDefs . FileSegmentAddress[f 1 . codesegment] ; 

SegmentDefs . Unlock[f 1. code segment]; 

END 
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ELSE 
BEGIN 

fcb <- fl.code; 
fcb.swappedout <- FALSE; 

01 «- fcb. offset; 
END; 

IF f 2 .codesegment. swappedin THEN 
BEGIN 
SegmentDefs. Swap In [f 2. codesegment]; 

02 *- f2.code.codebase - SegmentDefs . FileSegmentAddress[f 2. codesegment] ; 
SegmentDefs.Unlock[f 2. codesegment]; 

END 
ELSE 

BEGIN 

fcb ♦• f2.code; 

fcb.swappedout +■ FALSE; 

o2 <- fcb. offset; 

END; 
RETURN[IF ol - o2 THEN identical ELSE same]; 
END; 

CleanupFrames: PROCEDURE [rel: Relocation] * 
BEGIN 

frame: GlobalFrarneHandle; 
i, ep: CARDINAL; 
nlinks: [0..256); 
alloced: BOOLEAN ♦■ FALSE; 

DestroyCopy: PROCEDURE [f: GlobalFrameHandle] RETURNS [BOOLEAN] - 
BEGIN 

FrameDefs.UnNew[f]; 
RETURN[FALSE]; 
END; 
FOR i IN [1. .LENGTH[rel]) DO 

[frame: frame, epbase: ep] «- ControlDefs .GFT[rel[i]]; 
IF frame = NullGlobalFrame OR ep # THEN LOOP; 
IF frame. alloced THEN 
BEGIN 

FrameDef s . LockCode[ frame]; 
nlinks <- frame. code. prefix. nl inks ; 
FrameDef s .UnlockCode[f rame] ; 
END; 
IF ~EnumerateCopies[f rame, DestroyCopy]. shared THEN 
SegmentDefs . Del eteFileSegmen t [frame, codesegment ! 
SegmentDefs. SwapError => CONTINUE]; 
IF frame. alloced THEN 
BEGIN 
Align: PROCEDURE [POINTER, WORD] RETURNS [POINTER] * 

LOOPHOLE[InlineDefs.BITAND]; 
IF frame. codel inks THEN ControlDefs . Free[f rame] 
ELSE ControlDefs. Free[Al ign[f rame - nlinks, 177774B]]; 
alloced <- TRUE; 
END; 
ENDLOOP; 
IF -alloced THEN SystemDef s . FreeSegment[f rame]; 
RETURN 
END; 

NextMultipleOFFour: PROCEDURE [n: UNSPECIFIED] RETURNS [UNSPECIFIED] » 
BEGIN 

RETURN[n+InlineDefs.BITAND[-n, 3B]] 
END; 

UnBindConf ig: PROCEDURE [config: Configlndex, bed: BcdBase, rel: Relocation] 
BEGIN OPEN LoadStateDefs; 
bindeeRel : Relocation; 
nowUnresol ved : BOOLEAN; 

UnBind: PROCEDURE [c: Configlndex, b: BcdAddress] RETURNS [BOOLEAN] ■ 
BEGIN 

beds eg : SegmentDefs . Fi leSegment Handle; 
bindee: BcdBase; 

IF c = config THEN RETURN[FALSE] ; 
bedseg <- BcdSegFromLoadState[c]; 
bindee <- LoaderBcdUtilDef s .SetUpBcd[bcdseg]; 
IF bindee .nlmports // THEN 
BEGIN 
bindeeRel «- Initial izeRelocation[c] ; 
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nowUnresolved «- FALSE; 

[] <- LoaderBcdUtilDefs.EnumerateModuleTab1e[bindee, AdjustLinks]; 

SetUnresolvedImports[c, nowUnresol ved]; 

ReleaseRelocation[bindeeRel]; 

END; 
LoaderBcdUtilDefs.Re1easeBcdSeg[bcdseg]; 
RETURN[FALSE] 
END; 
AdjustLinks: PROCEDURE [mth: BcdDef s .MTHandle , mti: BcdDef s.MTIndex] 
RETURNS [BOOLEAN] » 
BEGIN 

frame: Global FrameHandle » ControlDef s .GFT[bindeeRel [mth . gfi]] . frame; 
nlinks: CARDINAL » mth .frame. length; 
changed: BOOLEAN; 
AdjustCopies: PROCEDURE [f: Global FrameHandle] RETURNS [BOOLEAN] ■ 

BEGIN 

[] <- AdjustFrame[f , mth .code. off set, nlinks]; 

RETURN[FALSE]; 

END; 
IF frame ■ Nul IGlobalFrame OR nlinks ■ THEN RETURN[FALSE] ; 
changed «- AdjustFrame[f name, mth. code. off set , nlinks]; 
IF changed AND frame. shared AND -frame. code! inks THEN 

[] <- EnumerateCopies[f rame, AdjustCopies]; 
IF changed THEN nowUnresol ved <- TRUE; 
RETURN[FALSE] 
END; 
AdjustFrame: PROCEDURE [frame: GlobalFrameHandle , offset, nlinks: CARDINAL] 
RETURNS [changed: BOOLEAN] - 
BEGIN 

linkbase: POINTER TO ControlDef s.ControlLink; 
i: CARDINAL; 
changed <- FALSE; 
IF frame. code! inks THEN 

BEGIN OPEN SegmentDefs; 

Swap In [frame. code segment]; 

linkbase <- FileSegmentAddress[frame. codesegment] + offset; 

END 
ELSE linkbase <- LOOPHOLE[f rame] ; 
FOR i IN [1. .nlinks] DO 

BEGIN OPEN ControlDefs; 

link: ControlLink <- (1 inkbase-i)t; 

IF BoundHere[link] THEN 
BEGIN 
(linkbase-i)t «- (SELECT link. tag FROM 

frame => TrapLink, ENDCASE *> BcdDef s .UnboundLink) ; 
changed <- TRUE; 
END; 

END; 

ENDLOOP; 
IF frame. codel inks THEN 

BEGIN OPEN SegmentDefs; 

seg: FileSegmentHandle - frame. codesegment ; 

IF changed THEN 

BEGIN seg. write <- TRUE; SwapUp[seg]; seg. write *- FALSE; END; 

Unlock[seg]; 

END; 
RETURN 
END; 
BoundHere: PROCEDURE [link: ControlDef s .ControlLink] RETURNS [BOOLEAN] = 
BEGIN 

i: CARDINAL; 

gfi: ControlDef s .GFTIndex; 
SELECT link. tag FROM 

unbound => RETURN[FALSE] ; 

ENDCASE => gfi «- FrameDef s . Gl obal Frame[l ink] . gf i ; 
FOR i IN [0. .LENGTH[rel]) DO 

IF rel[i] - gfi THEN RETURN[TRUE]; 

ENDLOOP; 
RETURN[FALSE]; 
END; 

IF bcd.nExports - AND bcd.nModules # 1 THEN RETURN; 
[] <- EnumerateLoadStateBcds[recentf irst , UnBind]; 
RETURN 
END; 
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CleanupGFT: PROCEDURE [rel: Relocation] - 
BEGIN OPEN ControlDefs; 
i: CARDINAL; 
FOR i IN [l..LENGTH[rel]) DO 

GFT[rel[i]] «- GFTItem[Nul IGlobalFrame, 0]; 

ENDLOOP; 
END; 

EnumerateCopies: PROCEDURE [frame: Global FrameHandle, 
proc: PROCEDURE [Global FrameHandle] RETURNS [BOOLEAN]] 
RETURNS [result: Global FrameHandle, shared: BOOLEAN] » 
BEGIN 

FindCopies: PROCEDURE [f: Global FrameHandle] RETURNS [BOOLEAN] 
BEGIN 

IF f » frame THEN RETURN[FALSE] ; 
SELECT SameCode[frame, f] FROM 
identical ■> 
BEGIN 

shared *- TRUE; 

IF f. copied AND proc[f] THEN RETURN[TRUE] ; 
END; 
same ■> shared <- TRUE; 
ENDCASE; 
RETURN[FALSE]; 
END; 
shared ♦- FALSE; 

RETURN[FrameDefs.EnumerateGlobalFrames[ FindCopies], shared]; 
END; 

END. . . 



